Visual Basic Toolbox/Visual Basic Toolbox (P.I.E.)(1996).ISO/buttons/eztips/main.frm

Text File | 1995-10-09 | 6KB | 191 lines

VERSION 2.00
Begin Form Form1
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Easy Tooltips"
   ClientHeight    =   3435
   ClientLeft      =   2430
   ClientTop       =   2130
   ClientWidth     =   5265
   ForeColor       =   &H00000000&
   Height          =   3840
   Left            =   2370
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3435
   ScaleWidth      =   5265
   Top             =   1785
   Width           =   5385
   Begin Timer Timer1
      Interval        =   1000
      Left            =   150
      Top             =   3630
   End
   Begin PictureBox ToolTip_Picture
      AutoSize        =   -1  'True
      BorderStyle     =   0  'None
      Height          =   330
      Left            =   60
      Picture         =   MAIN.FRX:0000
      ScaleHeight     =   330
      ScaleWidth      =   360
      TabIndex        =   2
      Top             =   30
      Width           =   360
   End
   Begin CommandButton ToolTip_CmdBtn
      Caption         =   "E&xit"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "Arial"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   330
      Left            =   4710
      TabIndex        =   0
      Top             =   30
      Width           =   495
   End
   Begin Label ForGround_Label
      BackStyle       =   0  'Transparent
      Caption         =   "Easy Tooltips"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Times New Roman"
      FontSize        =   22.5
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   585
      Left            =   1380
      TabIndex        =   4
      Top             =   1350
      Width           =   2685
   End
   Begin Label BackGround_Label
      BackColor       =   &H00C0C0C0&
      BackStyle       =   0  'Transparent
      Caption         =   "Easy Tooltips"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Times New Roman"
      FontSize        =   22.5
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      ForeColor       =   &H00808080&
      Height          =   615
      Left            =   1350
      TabIndex        =   3
      Top             =   1410
      Width           =   2715
   End
   Begin Image Tooltips_Image1
      Height          =   480
      Left            =   180
      Picture         =   MAIN.FRX:0182
      Top             =   750
      Width           =   480
   End
   Begin Line Line2
      BorderColor     =   &H00FFFFFF&
      X1              =   0
      X2              =   6450
      Y1              =   420
      Y2              =   420
   End
   Begin Line Line1
      BorderColor     =   &H00808080&
      X1              =   0
      X2              =   6450
      Y1              =   390
      Y2              =   390
   End
   Begin Label Tooltips
      BackColor       =   &H00FFFF80&
      ForeColor       =   &H00000000&
      Height          =   225
      Left            =   3990
      TabIndex        =   1
      Top             =   3630
      Width           =   1155
   End
End
'====================================
'// File Name:TOOLTIPS.MAK
'//
'// Description: This example shows how to implement "ToolTips" help
'// in a Visual Basic application. VB code, no Windows API functions
'// or VBX.
'//
'// Copyright: Freeware!!! (Use at your own risk)
'// Any questions, please contact me at 73123,1700
'// Revision History:
'//
'// ====================================

Option Explicit ' Force variable declaration.
Dim Control_Name$   ' Declare variables.


Sub ForGround_Label_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
    Control_Name$ = "ForGround_Label"
End Sub

Sub Form_Load ()
    ' The form is horizontally and vertically centered when loaded.
    Top = Screen.Height / 2 - Height / 2
    Left = Screen.Width / 2 - Width / 2
    'Define Tooltips properties
    Tooltips.BackColor = &HE0FFFF
    Tooltips.AutoSize = True
    Tooltips.BorderStyle = 1
    Tooltips.Visible = False
End Sub

Sub Form_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
    Control_Name$ = ""
    Tooltips.Visible = False
End Sub

Sub Timer1_Timer ()
    Select Case Control_Name$
        Case "ToolTip_Picture"
            Tooltips.Caption = " Tooltips Below Right "
            Tooltips.Move ToolTip_Picture.Left + 50, ToolTip_Picture.Top + (ToolTip_Picture.Height + 100)
            Tooltips.Visible = True
            Case "ToolTip_CmdBtn"
            Tooltips.Caption = " Tooltips Below Left "
            Tooltips.Move (ToolTip_CmdBtn.Left - (Len(Tooltips.Caption) * 80)), ToolTip_CmdBtn.Top + (ToolTip_CmdBtn.Height + 100)
            Tooltips.Visible = True
        Case "Tooltips_Image1"
            Tooltips.Caption = " Tooltips Center Right "
            Tooltips.Move Tooltips_Image1.Left + Tooltips_Image1.Width + 50, Tooltips_Image1.Top - ((Tooltips_Image1.Height / 2) - (Tooltips_Image1.Height) + 100)
            Tooltips.Visible = True
        Case "ForGround_Label"
            Tooltips.Caption = " Tooltips Above Left "
            Tooltips.Visible = True
            Tooltips.Move ForGround_Label.Left + 50, ForGround_Label.Top - Tooltips.Height
        Case Else
            Tooltips.Visible = False
    End Select
    Control_Name$ = ""
End Sub

Sub ToolTip_CmdBtn_Click ()
    Unload Me
End Sub

Sub ToolTip_CmdBtn_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
    Control_Name$ = "ToolTip_CmdBtn"
End Sub

Sub ToolTip_Picture_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
    Control_Name$ = "ToolTip_Picture"
End Sub

Sub Tooltips_Image1_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
    Control_Name$ = "Tooltips_Image1"
End Sub